home *** CD-ROM | disk | FTP | other *** search
/ World of Video / World of Video.iso / gfxprograms / egs / egs-sorcery-install / install_egs-sorcery < prev    next >
Encoding:
Text File  |  1995-02-13  |  10.5 KB  |  444 lines
  1. ; 
  2. ; $VER: Installation script for EGS-Sorcery V1.0 (06-18-94)
  3. ;
  4. ; written by Brian C. Wright
  5. ;
  6. ; 
  7. ;    Installer and Installer project icon
  8. ;    (c) Copyright 1991-93 Commodore-Amiga, Inc.  All Rights Reserved.
  9. ;    Reproduced and distributed under license from Commodore.
  10. ;
  11. ;    INSTALLER SOFTWARE IS PROVIDED "AS-IS" AND SUBJECT TO CHANGE;
  12. ;    NO WARRANTIES ARE MADE.  ALL USE IS AT YOUR OWN RISK.  NO LIABILITY
  13. ;    OR RESPONSIBILITY IS ASSUMED. 
  14. ;
  15. ;
  16.  
  17. (welcome "EGS-Sorcery Version 1.0 Installation")
  18.  
  19. (message "\n\nWelcome to the EGS-Sorcery V1.0 icon system for the EGS-Dock. "
  20.          "This system contains over 1 meg of icon files which can be mixed "
  21.          "and matched to your own preference.  Example EGSDock.config files "
  22.          "will be provided.  At the end of the installation, you may choose "
  23.          "which config file you wish to begin using."
  24. ) 
  25.          
  26.  
  27. (set integrated     0)
  28. (set non-integrated 0)
  29. (set prefs          0)
  30. (set apps           0)
  31.  
  32. (set installed     0)
  33. (set which-icons   0)
  34. (set int-size    323)
  35. (set nint-size   164)
  36. (set prefs-size  497)
  37. (set apps-size     8)
  38.  
  39. (set configdest "EGS:s/EGSDock.config")
  40.  
  41. (set configf1 "Integrated (A) Blue Prefs")    ; %0000000001
  42. (set configf2 "Integrated (A) No Prefs")    ; %0000000010
  43. (set configf3 "Integrated (A) icons only")    ; %0000000100
  44. (set configf4 "Integrated (A) Rainbow Prefs")    ; %0000001000
  45. (set configf5 "Integrated (S) Rainbow Prefs")    ; %0000010000
  46. (set configf6 "Integrated (S) with Apps")    ; %0000100000
  47. (set configf7 "Non-Integrated with Apps")    ; %0001000000
  48. (set configf8 "Non-Integrated icons only")    ; %0010000000
  49. (set configf9 "Non-Integrated Orange Prefs")    ; %0100000000
  50. (set configf10 "Text only")            ; %1000000000
  51.  
  52. (set config1 "s/IntegratedABluePrefs")
  53. (set config2 "s/IntegratedANoPrefs")
  54. (set config3 "s/IntegratedANoPrefsNoApps")
  55. (set config4 "s/IntegratedARainbowPrefs")
  56. (set config5 "s/IntegratedSRainbowPrefs")
  57. (set config6 "s/IntegratedSAppsNoPrefs")
  58. (set config7 "s/NonIntegratedAppsNoPrefs")
  59. (set config8 "s/NonIntegratedNoPrefsNoApps")
  60. (set config9 "s/NonIntegratedOrangePrefs")
  61. (set config10 "s/TextOnly")
  62.  
  63. (procedure copyconfig
  64.   (
  65.     (set configsource (tackon egs-dest configsource))
  66.     (copyfiles
  67.          (help @copyfiles-help)
  68.          (source configsource)
  69.          (dest "EGS:s")
  70.          (newname configdest)
  71.     )
  72.   )
  73. )
  74.  
  75. (procedure copyicons
  76.     (
  77.          (set temp (tackon egs-dest dirname))
  78.          (makedir temp)
  79.          (copyfiles
  80.               (prompt ("Installing %s Icons..." dirname))
  81.               (help @copyfiles-help)
  82.               (source dirname)
  83.               (dest temp)
  84.               (all)
  85.          )
  86.     )
  87. )
  88.  
  89. (procedure copypref
  90.     (copyfiles
  91.            (help @copyfiles-help)
  92.            (source configfile)
  93.            (dest temp)
  94.     ) 
  95. )
  96.  
  97. (procedure copyinformational
  98.     (working "Installing informational files...")
  99.     (complete 16)
  100.     (copyfiles
  101.            (help @copyfiles-help)
  102.            (source ".dirinfo")
  103.            (dest destination)
  104.            (newname "EGS-Sorcery.info")
  105.            (nogauge)
  106.     )
  107.     (complete 17)
  108.     (copyfiles
  109.            (help @copyfiles-help)
  110.            (source ".catinfo")
  111.            (dest egs-dest)
  112.            (newname "Catalog.readme.info")
  113.            (nogauge)
  114.     )
  115.     (complete 18)
  116.     (copyfiles
  117.            (help @copyfiles-help)
  118.            (source ".copyrightinfo")
  119.            (dest egs-dest)
  120.            (newname "Copyright.readme.info")
  121.            (nogauge)
  122.     )
  123.     (complete 19)
  124.     (copyfiles
  125.            (help @copyfiles-help)
  126.            (source ".sorcereadinfo")
  127.            (dest egs-dest)
  128.            (newname "EGS-Sorcery.readme.info")
  129.            (nogauge)
  130.     )
  131.     (complete 20)
  132.     (copyfiles 
  133.            (help @copyfiles-help)
  134.            (source ".instconfiginfo")
  135.            (dest egs-dest)
  136.            (newname "Install_SorceryConfig.info")
  137.            (nogauge)
  138.     )
  139.     (complete 21)
  140.     (copyfiles
  141.            (help @copyfiles-help)
  142.            (source "Install_SorceryConfig")
  143.            (dest egs-dest)
  144.            (nogauge)
  145.     )
  146.     (complete 22)
  147.     (copyfiles
  148.            (help @copyfiles-help)
  149.            (source "Installer")
  150.            (dest egs-dest)
  151.            (nogauge)
  152.     )
  153.     (complete 23)
  154.     (copyfiles
  155.            (help @copyfiles-help)
  156.            (source "Sorcery.large")
  157.            (dest egs-dest)
  158.            (nogauge)
  159.     )
  160.     (complete 24)
  161.     (copyfiles
  162.            (help @copyfiles-help)
  163.            (source "Sorcery")
  164.            (dest egs-dest)
  165.            (nogauge)
  166.     )
  167.     (complete 25)                      
  168.     (copyfiles
  169.            (help @copyfiles-help)
  170.            (source "")
  171.            (dest egs-dest)
  172.            (pattern "#?.readme")
  173.            (files)
  174.            (nogauge)
  175.     )
  176.  
  177.     (set temp (tackon egs-dest "s"))
  178.     (makedir temp)
  179.     (working "Setting up config files...")
  180.     (complete 30)
  181.     (copyfiles
  182.            (help @copyfiles-help)
  183.            (source "s")
  184.            (dest temp)
  185.            (all)
  186.            (nogauge)
  187.     )
  188. )
  189.  
  190. ; search for the EGS Assign.  If unavailable, quit.
  191.  
  192. (set egs-assign
  193.         (getassign "EGS")
  194. )
  195.  
  196. (if (= egs-assign "")
  197.         (
  198.              (abort "\n\nNo EGS: assign available.\n\n" 
  199.                     "Please assign EGS and restart the installation.")
  200.         )
  201. )
  202.  
  203. ; Set the destination and append EGS-Sorcery to it.
  204.  
  205. (set in-egs
  206.         (askbool
  207.                (prompt "\n\nInstall EGS-Sorcery into the EGS: directory? "
  208.                        "\n\nNote: This is the location where the included config "
  209.                        "files expect it to be.  If you select 'No' here, you will "
  210.                        "need to write your own config files for where ever you select "
  211.                        "to have it installed."
  212.                )
  213.                (help @askbool-help)
  214.                (choices "Yes" "No")
  215.         )
  216. )
  217.  
  218. (if (= in-egs 1)
  219.         (set destination "EGS:")
  220.         (set destination
  221.                (askdir 
  222.                        (prompt "Into which directory would you like EGS-Sorcery installed? "
  223.                                "\n(An 'EGS-Sorcery' subdirectory will be created.)" )
  224.                        (help @askdir-help)
  225.                        (default "EGS:")
  226.                )
  227.         )
  228. )
  229.  
  230. (set egs-dest (tackon destination "EGS-Sorcery"))
  231. (set @default-dest egs-dest)
  232. (makedir egs-dest)
  233.  
  234. (complete 10)
  235.  
  236. (set install-all
  237.         (askbool
  238.                (prompt "\n\n\nWould you like to install everything?")
  239.                (help @askbool-help)
  240.                (choices "Yes" "No")
  241.         )
  242. )
  243.  
  244. (if (= install-all 0)
  245.         (set which-icons
  246.                (askoptions
  247.                       (prompt "Which set(s) of icons would you like to install?")
  248.                       (help @askoptions-help)
  249.                       (choices ("Integrated     (%ldK)" int-size)
  250.                                ("Non-Integrated (%ldK)" nint-size) 
  251.                                ("Prefs          (%ldK)" prefs-size) 
  252.                                ("Apps           (%ldK)" apps-size)
  253.                       )
  254.                )
  255.         )
  256.     
  257.         (if (= which-icons 0)
  258.             (
  259.                (complete 15)
  260.                (copyinformational)
  261.  
  262.                (complete 35)
  263.                (set integrated 1)
  264.                (set dirname "Integrated")
  265.                (copyicons)
  266.  
  267.                (complete 45)
  268.                (set non-integrated 1)
  269.                (set dirname "Non-Integrated")
  270.                (copyicons)
  271.  
  272.                (complete 65)
  273.                (set prefs 1)
  274.                (set dirname "Prefs")
  275.                (copyicons)
  276.  
  277.                (complete 85)
  278.                (set apps 1)
  279.                (set dirname "Apps")
  280.                (copyicons)
  281.  
  282.                (set installed 1)
  283.             ) 
  284.         )
  285.  
  286. )
  287.  
  288. (if (= installed 0)
  289.    (
  290.      (set button1 (BITAND which-icons %0001))
  291.      (set button2 (BITAND which-icons %0010))
  292.      (set button3 (BITAND which-icons %0100))
  293.      (set button4 (BITAND which-icons %1000))
  294.      
  295.      (complete 15)
  296.  
  297.      (copyinformational)
  298.  
  299.      (if (> button1 0)
  300.          (
  301.              (set integrated 1)
  302.              (set dirname "Integrated")
  303.          (complete 35)
  304.              (copyicons)
  305.          )
  306.          (complete 35)
  307.      )
  308.  
  309.      (if (> button2 0)
  310.         (
  311.              (set non-integrated 1)
  312.              (set dirname "Non-Integrated")
  313.              (complete 50)
  314.              (copyicons)
  315.          )
  316.          (complete 50)
  317.      )
  318.  
  319.      (if (> button3 0)
  320.          (
  321.              (set prefs 1)
  322.              (set dirname "Prefs")
  323.              (complete 65)
  324.              (copyicons)
  325.          )
  326.          (complete 65)
  327.          
  328.      )
  329.  
  330.      (if (> button4 0)
  331.          (
  332.              (set apps 1)
  333.              (set dirname "Apps")
  334.              (complete 85)
  335.              (copyicons)
  336.          )
  337.          (complete 85)
  338.      )
  339.   )
  340. )    
  341.  
  342. (set which-file 
  343.     (askbool
  344.         (prompt "\n\nWould you like a working configuration file installed? \n\n"
  345.                 "Note: This action will rename your old EGSDock.config file "
  346.                 "and replace have just installed.  You need to be aware which icon "
  347.                 "sets you have installed to install the proper configuration file."
  348.         )
  349.         (help @askbool-help)
  350.         (choices "Yes" "No")
  351.     )
  352. )
  353.  
  354. (if (= which-file 1)
  355.         (set which-conf-file
  356.                 (askchoice
  357.                        (prompt "Which configuration file would you like installed?")
  358.                        (help @askchoice-help)
  359.                        (choices configf1 configf2 configf3 configf4 configf5
  360.                                 configf6 configf7 configf8 configf9 configf10
  361.                        )
  362.                        (default 0)
  363.                 )
  364.         )
  365.         (exit "Thank you for choosing EGS-Sorcery!")
  366. )
  367.  
  368.  
  369. (if (> (exists configdest (noreq)) 0)
  370.         (rename "EGS:s/EGSDock.config" "EGS:s/EGSDock.config.bak")
  371. )
  372.  
  373.  
  374. (if (= which-conf-file 0)
  375.     (
  376.     (set configsource config1)
  377.         (copyconfig)
  378.     )
  379. )
  380.  
  381. (if (= which-conf-file 1)
  382.     (
  383.     (set configsource config2)
  384.         (copyconfig)
  385.     )
  386. )
  387.  
  388. (if (= which-conf-file 2)
  389.     (
  390.     (set configsource config3)
  391.         (copyconfig)
  392.     )
  393. )
  394.  
  395. (if (= which-conf-file 3)
  396.     (
  397.     (set configsource config4)
  398.         (copyconfig)
  399.     )
  400. )
  401.  
  402. (if (= which-conf-file 4)
  403.     (
  404.     (set configsource config5)
  405.         (copyconfig)
  406.     )
  407. )
  408.  
  409. (if (= which-conf-file 5)
  410.     (
  411.     (set configsource config6)
  412.         (copyconfig)
  413.     )
  414. )
  415.  
  416. (if (= which-conf-file 6)
  417.     (
  418.     (set configsource config7)
  419.         (copyconfig)
  420.     )
  421. )
  422. (if (= which-conf-file 7)
  423.     (
  424.     (set configsource config8)
  425.         (copyconfig)
  426.     )
  427. )
  428.  
  429. (if (= which-conf-file 8)
  430.     (
  431.     (set configsource config9)
  432.         (copyconfig)
  433.     )
  434. )
  435.  
  436. (if (= which-conf-file 9)
  437.     (
  438.     (set configsource config10)
  439.         (copyconfig)
  440.     )
  441. )
  442.  
  443. (complete 100)
  444.